home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / util / gnu / gnu_smalltalk1_2.lha / diffs.rexx < prev    next >
OS/2 REXX Batch file  |  1992-06-11  |  2KB  |  41 lines
  1. /* this is a diff program for smalltalk 1.2 */ 
  2.  
  3. files = "mstsave.c IdentityDictionary.st mstsave.h initialize.st
  4.  mststr.c Integer.st mststr.h Interval.st mstsym.c IOCtl.st mstsym.h
  5.  alloc.c Link.st mstsysdep.c alloca.c LinkedList.st mstsysdep.h
  6.  alloca.s LookupKey.st msttree.c Array.st Magnitude.st msttree.h
  7.  ArrayedCollection.st Makefile Number.st Association.st
  8.  MappedCollection.st Object.st Autoload.st Memory.st
  9.  OrderedCollection.st Bag.st Message.st Point.st Behavior.st
  10.  Metaclass.st PositionableStream.st bison.el MethodContext.st
  11.  BlockContext.st MethodInfo.st Process.st Boolean.st
  12.  ProcessorScheduler.st browse.el mst.h Random.st
  13.  Browser.st mst.tab.c builtins.st mst.tab.h ByteArray.st mst.texinfo
  14.  ReadStream.st ByteMemory.st mst.y ReadWriteStream.st CFuncs.st
  15.  mstbyte.c Rectangle.st mstbyte.h Semaphore.st changes.st mstcallin.c
  16.  SequenceableCollection.st Character.st mstcallin.h Set.st Class.st
  17.  mstcint.c SharedQueue.st ClassDescription.st mstcint.h
  18.  SortedCollection.st CObject.st mstcomp.c st-changelog.el Collection.st
  19.  mstcomp.h st.el CompiledMethod.st mstdict.c Stream.st config.mst
  20.  mstdict.h String.st mstfiles Symbol.st CStruct.st mstid.c
  21.  SymLink.st CType.st mstid.h SystemDictionary.st Date.st mstinterp.c
  22.  t.st Debugger.st mstinterp.h Delay.st mstlex.c Time.st
  23.  Dictionary.st mstlex.h TokenStream.st DLD.st mstlib.c True.st False.st
  24.  mstlib.h UndefinedObject.st fileout-ps.st mstmain.c UnixStream.st 
  25.  FileSegment.st mstoop.c WordMemory.st FileStream.st mstoop.h
  26.  WriteStream.st Float.st mstpaths.h-dist ymakefile Fraction.st
  27.  mstpub.h"
  28.  
  29. numfiles = words(files)
  30.  
  31. call open out,"t:diff_temp",write
  32.  
  33. do i=1 to numfiles
  34.         say 'diff' "-c" word(files,i) "smalltalk-1.2/"word(files,i)" >>t:smtk_diff"
  35.         call writeln out,'diff' "-c" word(files,i) "smalltalk-1.2/"word(files,i)" >>t:smtk_diff"
  36.  
  37. end
  38.  
  39. call close out
  40.  
  41.